home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / THE.MAGIC.HAT.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  87 lines
  1. 10  REM **********************
  2. 11  REM *   THE MAGIC HAT    *
  3. 12  REM * BY ALISON FORDICE  *
  4. 13  REM *      AGE 9         *
  5. 14  REM * RANDOLPH TOWNSHIP  *
  6. 15  REM * NEW JERSEY JUNE 82 *
  7. 16  REM **********************
  8. 17  REM 
  9. 20  TEXT : HOME 
  10. 98  GOTO 199
  11. 99  REM ***SUBROUTINES***
  12. 104  FOR X = 1 TO  LEN(ST$): PRINT  MID$ (ST$,X,1);: FOR Y = 1 TO 40: NEXT : NEXT : PRINT : RETURN 
  13. 105  FOR X = 1 TO  LEN(ST$): PRINT  MID$ (ST$,X,1);:Z =  PEEK( -16336) + PEEK( -16336): FOR Y = 1 TO 20: NEXT : NEXT : PRINT : RETURN 
  14. 113 L =  PEEK(37):SU$ = "                                        ":ST$ = SU$ +ST$ +SU$: FOR X = 1 TO  LEN(ST$) -39: VTAB L: PRINT  MID$ (ST$,X,40): FOR Y = 1 TO 75: NEXT : NEXT : PRINT : RETURN 
  15. 120  FOR X = 38 TO 0  STEP  -1: POKE 32,X: POKE 33,40 -X: HOME : NEXT : RETURN 
  16. 185  HOME :H = 27: FOR V = 22 TO 1  STEP  -1: VTAB V: PRINT  TAB( H)A$;: VTAB V +1: HTAB H -1: CALL  -868:H = H -1: NEXT 
  17. 186 H = 4: FOR V = 22 TO 1  STEP  -1: VTAB V: PRINT  TAB( H)B$;: VTAB V +1: HTAB H -1: CALL  -868:H = H +1: NEXT 
  18. 187 V = 3: FOR H = 28 TO 14  STEP  -1: VTAB V: HTAB H: CALL  -868: PRINT C$: FOR T = 1 TO 8: NEXT : NEXT 
  19. 188 H = 40: INVERSE : FOR X = 1 TO 20: VTAB 5: HTAB X: PRINT " ": FOR T = 1 TO 8: NEXT : VTAB 5: HTAB H: PRINT " ":H = H -1: VTAB 4: NEXT : NORMAL : RETURN 
  20. 195  FOR I = 1 TO 1000: NEXT I: RETURN 
  21. 199  REM ***MAIN PROGRAM***
  22. 200 A$ = "ALISON"
  23. 201 B$ = "MARIE"
  24. 202 C$ = " FORDICE"
  25. 205  GOSUB 185
  26. 210  GOSUB 195
  27. 220 ST$ = "PRESENTS"
  28. 230  VTAB 12: HTAB 15: GOSUB 104
  29. 235  GOSUB 195
  30. 239  VTAB 18: HTAB 7: SPEED= 150
  31. 240 ST$ = "T H E   M A G I C   H A T"
  32. 250  GOSUB 105
  33. 255  GOSUB 195: SPEED= 255
  34. 260  GOSUB 195
  35. 270  GOSUB 120
  36. 280  GOSUB 195
  37. 500  HOME : GR : POKE  -16302,0
  38. 510  COLOR= 7
  39. 520  FOR I = 0 TO 39
  40. 530  VLIN 0,47 AT I
  41. 540  NEXT I
  42. 550  COLOR= 0
  43. 560  HLIN 12,28 AT 21
  44. 570  HLIN 12,28 AT 22
  45. 580  HLIN 12,28 AT 23
  46. 590  HLIN 12,28 AT 24
  47. 600  HLIN 12,28 AT 25
  48. 610  HLIN 12,28 AT 26
  49. 620  VLIN 30,47 AT 16
  50. 630  VLIN 30,47 AT 17
  51. 640  VLIN 30,47 AT 18
  52. 650  VLIN 30,47 AT 19
  53. 660  VLIN 30,47 AT 20
  54. 670  VLIN 30,47 AT 21
  55. 680  VLIN 30,47 AT 22
  56. 690  VLIN 30,47 AT 23
  57. 700  COLOR= 1
  58. 710  HLIN 12,28 AT 27
  59. 720  HLIN 12,28 AT 28
  60. 730  HLIN 12,28 AT 29
  61. 740  COLOR= 15
  62. 750  VLIN 14,20 AT 16
  63. 760  VLIN 14,20 AT 17
  64. 770  VLIN 14,20 AT 18
  65. 780  VLIN 14,20 AT 19
  66. 790  VLIN 14,20 AT 20
  67. 800  VLIN 14,20 AT 21
  68. 810  VLIN 14,20 AT 22
  69. 820  VLIN 5,13 AT 16
  70. 830  VLIN 5,13 AT 18
  71. 840  VLIN 5,13 AT 20
  72. 850  VLIN 5,13 AT 22
  73. 860  COLOR= 11
  74. 870  VLIN 5,13 AT 17
  75. 880  VLIN 5,13 AT 21
  76. 890  VLIN 17,18 AT 18
  77. 900  VLIN 17,18 AT 19
  78. 910  COLOR= 1
  79. 920  PLOT 17,15
  80. 930  PLOT 20,15
  81. 940  GOSUB 195: GOSUB 195: GOSUB 195
  82. 950  HOME : TEXT 
  83. 955  TEXT : HOME 
  84. 960  VTAB 12:ST$ = "THANK YOU!!     THANK YOU!!     THANK YOU!!"
  85. 970  GOSUB 113
  86. 980  GOSUB 195: GOSUB 195
  87. 999  END